(define (string->list-loop s i n)
  (if (= i n)
      '()
      (cons (builtin string-ref s i)
	    (string->list-loop s (+ i 1) n))))

(define (string->list a)
  (string->list-loop a 0 (builtin string-length a)))
